(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     19152,        587]
NotebookOptionsPosition[     18081,        545]
NotebookOutlinePosition[     18419,        560]
CellTagsIndexPosition[     18376,        557]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalOmega]", "=", 
   FractionBox[
    RowBox[{"4", " ", "\[Pi]"}], "3"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{"n", "^", "a"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{
    FractionBox["\[CapitalOmega]", 
     RowBox[{"4", " ", "\[Epsilon]", " ", "n"}]], "[", 
    RowBox[{"1", "-", 
     RowBox[{
      FractionBox["\[Epsilon]", "\[Pi]"], 
      RowBox[{"Log", "[", "\[Epsilon]", "]"}]}], " ", "+", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"\[Epsilon]", " ", "n"}], "\[Pi]"], 
      RowBox[{"(", 
       FractionBox["1", "5"], ")"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{"v", ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], ",", 
   RowBox[{
    RowBox[{"n", ">", "0"}], "&&", 
    RowBox[{"a", ">", "0"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.515860023200257*^9, 3.515860181880713*^9}, {
  3.515860220321408*^9, 3.515860222798325*^9}, {3.515860262873423*^9, 
  3.515860361285699*^9}, {3.515860683598824*^9, 3.515860686242152*^9}, {
  3.515861227491324*^9, 3.515861228353542*^9}, {3.515863123691039*^9, 
  3.515863123896613*^9}, {3.51586316146369*^9, 3.515863192306059*^9}, {
  3.515864227305604*^9, 3.515864229271407*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     SuperscriptBox["n", "a"]], " ", "\[Pi]"}], 
   RowBox[{"3", " ", "n"}]], "[", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      SuperscriptBox["n", "a"]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["n", "a"], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        SuperscriptBox["n", "a"]], " ", "\[Pi]"}], "+", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         FractionBox["n", "5"], "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", 
            FractionBox["1", "n"], "]"}], "2"],
          SeriesData[$CellContext`n, 
           DirectedInfinity[1], {}, -1, 2, 1],
          Editable->False]}],
        SeriesData[$CellContext`n, 
         DirectedInfinity[1], {
          Rational[1, 5]}, -1, 2, 1],
        Editable->False], ")"}]}], ")"}]}], "\[Pi]"], "]"}]], "Output",
 CellChangeTimes->{
  3.515860183991564*^9, 3.515860223588234*^9, {3.515860274915931*^9, 
   3.515860288368956*^9}, {3.515860326245853*^9, 3.515860362380145*^9}, 
   3.515860521030616*^9, 3.515860686854209*^9, 3.515861228763278*^9, {
   3.515863124846849*^9, 3.515863163144056*^9}, 3.515863193305346*^9, 
   3.515864229996499*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{"Clear", "[", "\[Kappa]", "]"}]}]], "Input",
 CellChangeTimes->{{3.515860452938777*^9, 3.51586045790457*^9}, {
  3.515863145821762*^9, 3.515863147477279*^9}, {3.515863231210375*^9, 
  3.515863231640916*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         SuperscriptBox["n", "a"]], " ", "\[Pi]"}], 
       RowBox[{"3", " ", "n"}]], "[", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          SuperscriptBox["n", "a"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["n", "a"], "+", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            SuperscriptBox["n", "a"]], " ", "\[Pi]"}], "+", 
          RowBox[{"(", 
           RowBox[{"n", "/", "5"}], ")"}]}], ")"}]}], "\[Pi]"], "]"}], 
     "\[Equal]", 
     RowBox[{
      RowBox[{
       FractionBox[
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "n"}]], "\[Kappa]"], " ", 
       FractionBox["1", "3"]}], "+", 
      FractionBox["1", "15"]}]}], ",", "\[Kappa]"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.515861139105609*^9, 3.515861213578316*^9}, {
  3.51586124743886*^9, 3.515861272688207*^9}, {3.515861719214738*^9, 
  3.515861729283187*^9}, {3.515863206858605*^9, 3.515863221633686*^9}, {
  3.515864244005874*^9, 3.515864255593903*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Kappa]", "\[Rule]", 
    FractionBox[
     RowBox[{"5", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "n"}]]}], 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"15", " ", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           SuperscriptBox["n", "a"]], " ", "\[Pi]"}], 
         RowBox[{"3", " ", "n"}]], "[", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"-", 
            SuperscriptBox["n", "a"]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox["n", "5"], "+", 
            SuperscriptBox["n", "a"], "+", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              SuperscriptBox["n", "a"]], " ", "\[Pi]"}]}], ")"}]}], "\[Pi]"], 
        "]"}]}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.515861177689277*^9, 3.515861214093421*^9, 3.515861274859959*^9, 
   3.515861729677634*^9, {3.51586322715062*^9, 3.515863233925892*^9}, {
   3.515864259312803*^9, 3.515864264232199*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "n", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"\[Sigma]", "\[Equal]", " ", 
    RowBox[{"n", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"-", 
         RowBox[{"n", "^", "a"}]}], "]"}], "^", "2"}], "/", "4"}]}]}], ",", 
   "n"}], "]"}]}], "Input",
 CellChangeTimes->{{3.515862053822736*^9, 3.515862072727819*^9}, {
  3.515863270494205*^9, 3.515863272947824*^9}, {3.515864121291786*^9, 
  3.515864141136846*^9}, {3.515864187067257*^9, 3.515864188871967*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \
\[NoBreak]\\!\\(Solve\\)\[NoBreak], so some solutions may not be found; use \
Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.515862073163355*^9, 3.515863275419225*^9, 3.515864123977704*^9, {
   3.515864176629618*^9, 3.515864189241893*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"n", "\[Rule]", 
    RowBox[{
     SuperscriptBox["2", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "a"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"ProductLog", "[", 
          RowBox[{
           RowBox[{"-", "a"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["2", 
               RowBox[{"2", "+", 
                FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], "a"]}], 
          "]"}], "a"]}], ")"}], 
      FractionBox["1", "a"]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.515862073166919*^9, 3.515863275423075*^9, 3.515864123983869*^9, {
   3.515864176701997*^9, 3.515864189245392*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "a"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"ProductLog", "[", 
         RowBox[{
          RowBox[{"-", "a"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["2", 
              RowBox[{"2", "+", 
               FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], "a"]}], 
         "]"}], "a"]}], ")"}], 
     FractionBox["1", "a"]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[Kappa]", "=", " ", 
  RowBox[{
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "n"}]]}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"15", " ", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          SuperscriptBox["n", "a"]], " ", "\[Pi]"}], 
        RowBox[{"3", " ", "n"}]], "[", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           SuperscriptBox["n", "a"]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox["n", "5"], "+", 
           SuperscriptBox["n", "a"], "+", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             SuperscriptBox["n", "a"]], " ", "\[Pi]"}]}], ")"}]}], "\[Pi]"], 
       "]"}]}]}]], "//", "FullSimplify"}]}], "\[IndentingNewLine]"}], "Input",\

 CellChangeTimes->{{3.515861806352942*^9, 3.515861852419797*^9}, {
   3.515862009284609*^9, 3.515862010134284*^9}, {3.515862050293239*^9, 
   3.51586205045321*^9}, {3.515862085755363*^9, 3.515862105440967*^9}, {
   3.515863289263187*^9, 3.515863326750149*^9}, 3.51586427621254*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["2", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "a"}]]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"ProductLog", "[", 
           RowBox[{
            RowBox[{"-", "a"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["2", 
                RowBox[{"2", "+", 
                 FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], "a"]}], 
           "]"}], "a"]}], ")"}], 
       FractionBox["1", "a"]]}]]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"15", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "3"], " ", 
        SuperscriptBox["2", 
         FractionBox["1", "a"]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["2", 
             RowBox[{
              RowBox[{"-", "1"}], "/", "a"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", 
               FractionBox[
                RowBox[{"ProductLog", "[", 
                 RowBox[{
                  RowBox[{"-", "a"}], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["2", 
                    RowBox[{"2", "+", 
                    FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], 
                   "a"]}], "]"}], "a"]}], ")"}], 
             FractionBox["1", "a"]]}], ")"}], "a"]], " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"ProductLog", "[", 
             RowBox[{
              RowBox[{"-", "a"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["2", 
                  RowBox[{"2", "+", 
                   FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], "a"]}],
              "]"}], "a"]}], ")"}], 
         RowBox[{
          RowBox[{"-", "1"}], "/", "a"}]]}], ")"}], "[", 
      RowBox[{
       RowBox[{"1", "/", "\[Pi]"}], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["2", 
              RowBox[{
               RowBox[{"-", "1"}], "/", "a"}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"ProductLog", "[", 
                  RowBox[{
                   RowBox[{"-", "a"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["2", 
                    RowBox[{"2", "+", 
                    FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], 
                    "a"]}], "]"}], "a"]}], ")"}], 
              FractionBox["1", "a"]]}], ")"}], "a"]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["2", 
                RowBox[{
                 RowBox[{"-", "1"}], "/", "a"}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"ProductLog", "[", 
                    RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["2", 
                    RowBox[{"2", "+", 
                    FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], 
                    "a"]}], "]"}], "a"]}], ")"}], 
                FractionBox["1", "a"]]}], ")"}], "a"]], " ", "\[Pi]"}], "+", 
          RowBox[{
           FractionBox["1", "5"], " ", 
           SuperscriptBox["2", 
            RowBox[{
             RowBox[{"-", "1"}], "/", "a"}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", 
              FractionBox[
               RowBox[{"ProductLog", "[", 
                RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["2", 
                    RowBox[{"2", "+", 
                    FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], 
                  "a"]}], "]"}], "a"]}], ")"}], 
            FractionBox["1", "a"]]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["2", 
              RowBox[{
               RowBox[{"-", "1"}], "/", "a"}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"ProductLog", "[", 
                  RowBox[{
                   RowBox[{"-", "a"}], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["2", 
                    RowBox[{"2", "+", 
                    FractionBox["1", "a"]}]], " ", "\[Sigma]"}], ")"}], 
                    "a"]}], "]"}], "a"]}], ")"}], 
              FractionBox["1", "a"]]}], ")"}], "a"]}], ")"}]}]}], "]"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.515862099686851*^9, 3.515862105832795*^9}, {
   3.515863310302633*^9, 3.515863327532022*^9}, 3.515864278277539*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Kappa]", "/.", 
    RowBox[{"a", "\[Rule]", "1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]", ",", "0", ",", "0.1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.515862401424998*^9, 3.51586241000255*^9}, {
  3.515863332261022*^9, 3.515863347081028*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQvejVzpKz7Yp2DFBwji1mZ65Igj2ML/LQN7L3YAGc
X2g0+zHr0wo4X66k++35/AY4/1dh4v81h1vg/HWafBKzz3bA+eEsl90k9Xrh
/Nkd4mIieyfA+d9fG/Co7JsE559LCOOteTUFzp9o9HzinY/T4PyCuYcLWd/P
gPNPSa6JKROfDecLfP5/6r3UXDj/4t14l42e8+H86xtae2S3L4DzbRQn7ni2
bSGcHztL6VXwmUVw/teDmbGu5xfD+d6fzK7der4Eztd7v7Im5PdSOL9t1qWU
oD/L4Pw5fo1BX4RWwPkaG582SomvhPOdHry/pyK2Cs6XlGhwvKy1Gs5P/3f0
KavuGji/+O3E/jsua+F8npXM6dPD18H5UsLaDdfC18P5n51yzt8x2wDnT7k8
t37CDgS/xmuR2zbzjXD+4aOZAusOIviuEjy/0502wfmq+YUvPp9F8B3mbvzm
GLAZzl+08Yg00wUEP/nULOcpUVvg/Phd3j0vbiP4u9btv86XsRXOj+lks1r+
EcG3tNbYy1i0Dc4v+cjjrPcXwX9Vd+alTP12OH/5p7jltf8Q/MNZW9I3dOxA
hM+uJx5LOXfC+Q82XZ0wcyaCDwCZUMlO
   "], {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.1}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.515862410691427*^9, {3.515863334232922*^9, 3.515863347773608*^9}, 
   3.515864283912511*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ProductLog", "[", "5", "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.515862672655614*^9, 3.51586267865826*^9}}],

Cell[BoxData["1.3267246652422002`"], "Output",
 CellChangeTimes->{{3.515862675292607*^9, 3.515862678913769*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Kappa]", "/.", 
   RowBox[{"a", "\[Rule]", "1"}]}], "/.", 
  RowBox[{"\[Sigma]", "\[Rule]", "0.01"}]}]], "Input",
 CellChangeTimes->{{3.515863357417705*^9, 3.515863396544173*^9}}],

Cell[BoxData[
 FractionBox["4.786450204380325`", 
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"15", " ", 
    RowBox[{
    "25.06179466475765`", "[", "1.015960548929183`", "]"}]}]}]]], "Output",
 CellChangeTimes->{{3.515863360441775*^9, 3.515863397113003*^9}}]
}, Open  ]]
},
WindowSize->{740, 607},
WindowMargins->{{138, Automatic}, {Automatic, 23}},
FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1452, 39, 140, "Input"],
Cell[2034, 63, 1340, 38, 57, "Output"]
}, Open  ]],
Cell[3389, 104, 247, 5, 50, "Input"],
Cell[CellGroupData[{
Cell[3661, 113, 1259, 36, 62, "Input"],
Cell[4923, 151, 1150, 33, 68, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6110, 189, 566, 14, 50, "Input"],
Cell[6679, 205, 628, 13, 61, "Message"],
Cell[7310, 220, 800, 25, 90, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8147, 250, 1816, 54, 221, "Input"],
Cell[9966, 306, 5840, 167, 979, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15843, 478, 325, 8, 30, "Input"],
Cell[16171, 488, 1067, 24, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17275, 517, 152, 3, 30, "Input"],
Cell[17430, 522, 112, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17579, 528, 216, 5, 30, "Input"],
Cell[17798, 535, 267, 7, 50, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
